Voorbeeld van de instructie Close

Dit voorbeeld maakt gebruik van de instructie Close om alle drie de bestanden die zijn geopend voor Output, te sluiten.

Dim I, FileName
For I = 1 To 3    ' Loop 3 times.
    FileName = "TEST" & I    ' Create file name.
    Open FileName For Output As #I    ' Open file.
    Print #I, "Dit is een test."    ' Write string to file.
Next I
Close    ' Close all 3 open files.